home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / music_utilities / pt140.dms / pt140.adf / install < prev    next >
Text File  |  1994-04-30  |  29KB  |  1,104 lines
  1. ; This piece installs the Eagleplayer (TM) to your hard disk
  2. ; © 1993 DEFECT INC. All rights reserved.
  3. ;
  4. ; Written by Buggs/DFT
  5.  
  6. (set #EP_Version (cat "1.52"))                ;Eagleplayer Version
  7. (set #EP_Disk1 (cat "Eagleplayer.Disk.1:"))        ;Name of first Disk
  8. (set #EP_Disk2 (cat "Eagleplayer.Disk.2:"))        ;Name of Second Disk
  9. (set #Space (cat "1.4 "))                ;Megabytes needed for
  10.                                                         ;installation.
  11. (set KickVersion (/ (getversion) 65536))
  12. (debug "Kickversion:" Kickversion)
  13. ;=========================== English texts ==================================
  14. (set Docfile ("Eagleplayer.Doc.Guide"))
  15.  
  16. (set #which-disk
  17. (cat "In which drawer shall I install the Eagleplayer?\n"
  18.      "(no own directory will be created by the script)"
  19. ))
  20.  
  21. (Set #intro
  22. (cat "\n\n This procedurce lets you install the full Eagleplayer Version "
  23.      #EP_Version
  24.      "including the needed libraries on your hard drive. Any previous "
  25.      "release already present will be replaced. For installing the full "
  26.      "package you need about "
  27.      #Space
  28.      "MBytes free space on your harddisk. \n"
  29.      "With the default installation settings the Eagleplayer needs much "
  30.      "more than 1MB of available memory. Please cunsult the manual how "
  31.      "to save memory e.g. by deleting not needed replayers or userprograms "
  32.      "or use the Batch functions (chapter 4.4 in the GUIDE file). "
  33. ))
  34.  
  35. (Set #WhatInstall
  36. (cat  "Which parts of the Eagleplayer Package do you want to install now ?"
  37. ))
  38.  
  39. (Set #WhatHelp
  40. (cat "Here you are asked to choose between the different parts of the "
  41.      "Eagleplayer package you want to get. Simply to start the Eagleplayer "
  42.      "the Main Program and the needed libraries are enough. \n"
  43.      "To be able playing modules of all supported formats you have to install "
  44.      "the supplied replayers. \n"
  45.      "For the analyzing and some extended controlling features you may choose "
  46.      "to install the so called Userprograms. \n"
  47.      "The Documentation is recommended to read for learning to know and to "
  48.      "handle all the abilities of this package. READ IT BEFORE COMPLAINING "
  49.      "ABOUT SEVERAL PROBLEMS !! \n"
  50.      "The Noiseconverter is a little Utility to convert several Moduleformats "
  51.      "into the standard Protracker format or another supported one. It has "
  52.      "got much more abilities than any other Soundconverter program. \n\n"
  53.      @askoptions-help
  54. ))
  55.  
  56. (Set MainProgname
  57. (cat "Eagleplayer Main Program"
  58. ))
  59. (set Eagleplayersname
  60. (cat "External Replayers"
  61. ))
  62. (set Libsname
  63. (cat "needed Libraries"
  64. ))
  65. (set Userprogramsname
  66. (cat "Userprograms (Analyzers, etc.)"
  67. ))
  68. (set Documentationname
  69. (cat "Documentations"
  70. ))
  71. (set ArexxScriptsname
  72. (cat "Arexx Example Scripts"
  73. ))
  74. (set DeveloperKitname
  75. (cat "Developer Examples & include Files"
  76. ))
  77. (set Noiseconvertername
  78. (cat "Noiseconverter"
  79. ))
  80.  
  81. (set #where-libs
  82. (cat "Enter the Path where your LIBS: Directory is situated when you "
  83.      "boot from your Harddisk !"
  84. ))
  85.  
  86. (set #where-key
  87. (cat "Enter the Path where your DEVS: Directory is situated when you "
  88.      "boot from your Harddisk !"
  89. ))
  90.  
  91. (set #where-rexx
  92. (cat "Enter the Path where your REXX: Directory is situated when you "
  93.      "boot from your Harddisk !"
  94. ))
  95.  
  96. (set #where-envarc
  97. (cat "Enter the Path where your ENVARC: Directory is situated when you "
  98.      "boot from your Harddisk !"
  99. ))
  100.  
  101. (set #where-locale
  102. (cat "Enter the Path where your LOCALE: Directory is situated when you "
  103.      "boot from your Harddisk !"
  104. ))
  105.  
  106. (set #Betterabort
  107. (cat "OK, you booted from the Eagleplayer Disk. That means that this install "
  108.      "script doesn`t know your system`s settings and default drawers. If "
  109.      "you (due to the fact that you selected \"novice user\") don`t know "
  110.      "what and where your \"DEVS:\",\"REXX:\" and \"LIBS:\" paths are on your "
  111.      "harddisk then you better select \"ABORT INSTALL\", reboot your machine "
  112.      "from your harddisk and then put the Eagleplayer Disk 1 into your drive "
  113.      "and start this install-script again. Then this script will find these "
  114.      "paths automatically !"
  115. ))
  116.  
  117. (set #Betterboot
  118. (cat "OK, you booted from the Egleplayer Disk. That means you have to select "
  119.      "\"Libs:\",\"DEVS:\",\"REXX:\" and \"ENVARC:\" manually. If you don`t "
  120.      "want you better reboot from harddisk. "
  121. ))
  122.  
  123. (set #InstallReplays
  124. (cat "Installing the external Replayers, please wait."
  125. ))
  126.  
  127. (set #which-user13
  128. (cat "Which Kickstart 1.3 compatible Userprograms you wish to be installed ?"
  129. ))
  130.  
  131. (set #which-user20
  132. (cat "Which Userprograms requiering OS 2.0 you wish to be installed ?"
  133. ))
  134.  
  135. (set #which-user30
  136. (cat "Which Userprograms requiering OS 3.0 you wish to be installed ?"
  137. ))
  138.  
  139. (set #which-user-help
  140. (cat "This procedure asks you for selecting the Userprograms"
  141.      " this program should install. Userprograms are the external modules"
  142.      " the Eagleplayer loads out of the external Players. These can be"
  143.      " Analyzers, Scopes or new Surfaces. Please notice that some"
  144.      " Userprograms may take a lot of memory, so if you only own 1 MB"
  145.      " of even less memory, choose only these you really like. (HIFI-System"
  146.      " e.g. takes about 100 kB memory when it`s loaded) The Userprograms"
  147.      " marked with a "R"- sign at the beginning are only available for the"
  148.      " registered users and won`t be loaded in the general version. So if"
  149.      " you are not registered you don`t need to install them.      "
  150.      @Askoptions-help
  151. ))
  152.  
  153. (set #copyingdocs
  154. (cat "Installing the Amigaguide® Documentation File"
  155. ))
  156.  
  157. (set #copyinglocale
  158. (cat "Installing the Localisation File(s)"
  159. ))
  160.  
  161. (set #copydocs
  162. (cat "Where to copy the Eagleplayer documentation ?"
  163. ))
  164.  
  165. (set #copydocshelp
  166. (cat "Please confirm the Path you want to put these docs to."
  167. ))
  168.  
  169. (set #copyingexamples
  170. (cat "Installing the Developer Example Files"
  171. ))
  172.  
  173. (set #copyexamples
  174. (cat "Where to copy the Eagleplayer developer examples ?"
  175. ))
  176.  
  177. (set #copyexampleshelp
  178. (cat "The Program asks you if you want to get the developer"
  179.      " examples, the Resource (TM) symbolfile and the Testplayer onto"
  180.      " your had disk. For users with no experiences in Assembler-coding"
  181.      " these files shouldn`t be useful at all (I think). "
  182. ))
  183.  
  184. (set #copyingarexx
  185. (cat "Installing the Arexx Example Files"
  186. ))
  187.  
  188. (set #copybonus
  189. (cat "Where to copy the Noiseconverter ?"
  190. ))
  191.  
  192. (set #copybonusshelp
  193. (cat "The Program asks where you want to get the Noiseconverter onto "
  194.      "your hard disk. This program is a proggy to convert several "
  195.      "music formats to each other, like Perverter or ProWizard but "
  196.      "much more powerful"
  197. ))
  198.  
  199. (set #copymods
  200. (cat "Where to copy the supplied Soundmodules ?"
  201. ))
  202.  
  203. (set #copymodshelp
  204. (cat "Simply select whether you want the modules on your hard disk or"
  205.      "not and when yes, where you want them."
  206. ))
  207.  
  208. (set #copyprefs
  209. (cat "Copying default preferences...."
  210. ))
  211.  
  212. (set #copykey
  213. (cat "Copying your personal Keyfile to devs:"
  214. ))
  215.  
  216. (set #copyhelp
  217. (cat "Copying your Helpfile"
  218. ))
  219.  
  220.  
  221. (set #copyprefsok
  222. (cat "Proceed"
  223. ))
  224.  
  225. (set #copyprefsno
  226. (cat "Skip this part"
  227. ))
  228.  
  229. (set #copyincludes
  230. (cat "Where to copy the Eagleplayer include files ?"
  231. ))
  232.  
  233. (set #copyincludeshelp
  234. (cat "Only for developers, the Eagleplayer include file needed for"
  235.      " creating own Replayroutines or Userprograms (not documented yet)."
  236. ))
  237.  
  238.  
  239. ;=========================== Deutsche Texte =================================
  240. (if (= @language "deutsch")
  241. (
  242.  
  243. (set Docfile ("Eagleplayer.Dok.Guide"))
  244.  
  245. (set #which-disk
  246. (cat "Wo soll der Eagleplayer installiert werden ? "
  247.      "(es wird kein eigenes Vezeichnis angelegt)"
  248. ))
  249.  
  250. (Set #intro
  251. (cat "\n\n Dieser Vorgang ermöglicht es Ihnen, das komplette Eagleplayer-Paket "
  252.      #EP_Version
  253.      " samt den benötigten Bibliotheken auf Ihrer Harddisk zu installieren. "
  254.      " jede vorherige Version wird ersetzt. Zur Installation des kompletten "
  255.      " Paketes werden etwa "
  256.      #Space
  257.      "MBytes freier Platz auf der Festplatte benötigt. Mit den dabei "
  258.      "installierten Einstellungen wird erheblich mehr als 1 MB Arbeitsspeicher "
  259.      "beansprucht. Lesen Sie dafür in der Anleitung nach, wie Sie Speicher "
  260.      "sparen können. (Kapitel 4.4 \"Batch Dateien\") "
  261.      "Sie können auch nicht benötigte externe Abspieler oder Userprogramme "
  262.      "wieder löschen."
  263. ))
  264.  
  265. (Set #WhatInstall
  266. (cat  "Welche Teile des Eagleplayerpaketes möchten Sie jetzt installieren ?"
  267. ))
  268.  
  269. (Set #WhatHelp
  270. (cat "Sie sollten nun auswählen, welche Teile des Eagleplayerpaketes Sie "
  271.      "haben wollen. Um den Eagleplayer starten zu können ist lediglich "
  272.      "das Hauptprogramm notwendig. (bei Bedarf die Libraries noch dazu) \n"
  273.      "Um Musikstücke aller unterstützter Formate abzuspielen müssen Sie "
  274.      "zwangsweise auch die externen Abspieler mit installieren.\n"
  275.      "Für die Analyzer und einige externe Kontrollfunktionen benötigen "
  276.      "Sie die sogenannten \"Userprogramme\".\n"
  277.      "Die Dokumentation zu installieren wird ihnen wärmstens ans Herz gelegt, "
  278.      "schließlich handelt es sich hier um ein Paket von weit über 1MB Umfang."
  279.      "AUßERDEM SOLLTEN SIE ERST IN DER ANLEITUNG NACHLESEN, BEVOR SIE SICH "
  280.      "BESCHWEREN.\n"
  281.      "Der Noiseconverter ist ein kleines Hilfsprogramm in der Art wie "
  282.      "\"Perverter\" und \"Prowizard\", nur erheblich umfangreicher. "
  283.      "Beispielsweise läßt sich mit diesem Programm die Gesamtspielzeit "
  284.      "der geladenen Module auf die Sekunde genau anzeigen.\n\n"
  285.      @askoptions-help
  286. ))
  287.  
  288. (Set MainProgname
  289. (cat "Eagleplayer Hauptprogramm"
  290. ))
  291. (set Eagleplayersname
  292. (cat "Externe Abspieler"
  293. ))
  294. (set Libsname
  295. (cat "benutzte Libraries"
  296. ))
  297. (set Userprogramsname
  298. (cat "Userprogramme"
  299. ))
  300. (set Documentationname
  301. (cat "Dokumentation"
  302. ))
  303. (set ArexxScriptsname
  304. (cat "Arexx Beispieldateien"
  305. ))
  306. (set DeveloperKitname
  307. (cat "Entwicklerunterlagen"
  308. ))
  309. (set Noiseconvertername
  310. (cat "Noiseconverter"
  311. ))
  312.  
  313. (set #where-libs
  314. (cat "Bitte geben Sie den Pfad an, wo sich das LIBS: Verzeichnis befindet, "
  315.      "wenn Sie von Festplatte booten !"
  316. ))
  317.  
  318. (set #where-key
  319. (cat "Bitte geben Sie den Pfad an, wo sich das DEVS: Verzeichnis befindet, "
  320.      "wenn Sie von Festplatte booten !"
  321. ))
  322.  
  323. (set #where-rexx
  324. (cat "Bitte geben Sie den Pfad an, wo sich das REXX: Verzeichnis befindet, "
  325.      "wenn Sie von Festplatte booten !"
  326. ))
  327.  
  328. (set #where-envarc
  329. (cat "Bitte geben Sie den Pfad an, wo sich das ENVARC: Verzeichnis befindet, "
  330.      "wenn Sie von Festplatte booten !"
  331. ))
  332.  
  333. (set #where-locale
  334. (cat "Bitte geben Sie den Pfad an, wo sich das LOCALE: Verzeichnis befindet, "
  335.      "wenn Sie von Festplatte booten !"
  336. ))
  337.  
  338. (set #Betterabort
  339. (cat "OK, Sie haben von der Eagleplayer Disk 1 gebootet. Dies bedeutet, daß "
  340.      "die Installationsdatei allein nicht herausfinden kann, wo sich die "
  341.      "Systemverzeichnisse befinden, wenn Sie von Festplatte hochfahren. "
  342.      "Da Sie \"Anfänger\" als Installationsoption angegeben haben, würde "
  343.      "ich vorschlagen, daß Sie \"Abort Install\" anwählen, ihren Rechner "
  344.      "neustarten und dann erst die Eagleplayerdiskette einlegen, nachdem "
  345.      "der Rechner von Festplatte hochgefahren ist. Dies würde für Sie "
  346.      "als Anfänger erheblich einfacher werden."
  347. ))
  348.  
  349. (set #InstallReplays
  350. (cat "Installiere die externen Abspieler, bitte warten ...."
  351. ))
  352.  
  353. (set #which-user13
  354. (cat "Welche unter Kickstart 1.3 nutzbaren Userprogramme möchten Sie "
  355.      "installieren ?"
  356. ))
  357.  
  358. (set #which-user20
  359. (cat "Welche Userprogramme, die OS 2.0 erfordern, möchten Sie installieren ?"
  360. ))
  361.  
  362. (set #which-user30
  363. (cat "Welche Userprogramme, die OS 3.0 erfordern, möchten Sie installieren ?"
  364. ))
  365.  
  366. (set #which-user-help
  367. (cat "Dieser Programmteil fragt Sie, welche Userprogramme Sie installieren"
  368.      " möchten. Userprogramme sind die externen Module, die außer den externen"
  369.      " Abspielroutinen beim Start des Programmes oder später geladen werden."
  370.      " Dieses können Spektrum Analyzer, Oszilliscopesimulatoren oder neue"
  371.      " Oberflächen sein. Bitte beachten Sie, daß einige Userprogramme eine"
  372.      " ganze Menge Speicher beanspruchen und somit sollten Sie bei nur 1 MB"
  373.      " oder gar weniger Hauptspeicher nur die auswählen, die Sie auch wirlich"
  374.      " oft nutzen. (so z.B. braucht "HIFI System" etwa 100 kByte) Diejenigen"
  375.      " Userprogramme, die mit einem "R" am Anfang gekennzeichnet sind, können"
  376.      " nur geladen werden, wenn Sie im Besitz einer registrierten Eagleplayer"
  377.      "version sind und Ihr Keyfile richtig installiert haben.      "
  378.      @Askoptions-help
  379. ))
  380.  
  381. (set #copyingdocs
  382. (cat "Installiere die Amigaguide® Dokumentationsdatei"
  383. ))
  384.  
  385. (set #copyinglocale
  386. (cat "Installiere die Übersetzten Dateien"
  387. ))
  388.  
  389. (set #copydocs
  390. (cat "Wohin soll ich die Eagleplayer Dokumentation kopieren ?"
  391. ))
  392.  
  393. (set #copydocshelp
  394. (cat "Bitte bestätigen Sie den Verzeichnispfad, wohin ich die Anleitungen"
  395.      " hinzukopieren habe."
  396. ))
  397.  
  398. (set #copyingexamples
  399. (cat "Installiere die Entwicklerbeispiele..."
  400. ))
  401.  
  402. (set #copyexamples
  403. (cat "Wohin soll ich die Eagleplayer Entwicklerbeispiele kopieren ?"
  404. ))
  405.  
  406. (set #copyexampleshelp
  407. (cat "Sie wurden gefragt ob Sie die Enfwickkerbeispiele, das Resource-"
  408.      "Symbolfile und den Testplayer installieren möchten. FÜr Anwender"
  409.      " ohne Assemblererfahrungen sind diese Dateien kaum relevant. "
  410. ))
  411.  
  412. (set #copyingarexx
  413. (cat "Installiere die Arexx Beispieldateien"
  414. ))
  415.  
  416. (set #copybonus
  417. (cat "Wohin soll ich den Noiseconverter kopieren ?"
  418. ))
  419.  
  420. (set #copybonusshelp
  421. (cat "Nur die Frage, wo Sie den Noiseconverter, ein Tool zum umwandeln "
  422.      "diverser Soundtrackerformate hinkopieren wollen. Dieses Programm "
  423.      "ist ein Tool der Art wie der 'Perverter' oder 'Prowizard', nur "
  424.      "viel mächtiger."
  425. ))
  426.  
  427. (set #copymods
  428. (cat "Wohin mit den mitgelieferten Musikstücken ?"
  429. ))
  430.  
  431. (set #copymodshelp
  432. (cat "Wollen Sie sie nun, oder nicht ??"
  433. ))
  434.  
  435. (set #copyprefs
  436. (cat "Kopiere die vordefinierten Einstellungen..."
  437. ))
  438.  
  439. (set #copyprefshelp
  440. (cat "Ja wat nu ?"
  441. ))
  442.  
  443. (set #copykey
  444. (cat "Kopiere Ihr persönliches Keyfile nach devs:"
  445. ))
  446.  
  447. (set #copyhelp
  448. (cat "Kopiere Datei für Online-Hilfe"
  449. ))
  450.  
  451. (set #copyprefsok
  452. (cat "Weiter"
  453. ))
  454.  
  455. (set #copyprefsno
  456. (cat "Diesen Teil überspingen"
  457. ))
  458.  
  459. )
  460. )
  461. ;======================= Prozeduren und Hilfsroutinen ======================
  462. (procedure DepackFile
  463. ;Extract one file from an lha archive
  464. ; syntax: 
  465. ;    (set #Message     ("Installing %s/%s..." Destdir Filename))
  466. ;    (set ArchiveName ("%sEagleplayers.lha" #EP_Disk1))
  467. ;    (set Destination (tackon target "Eagleplayers/"))
  468. ;    (set FileName    ("Actionamics"))
  469. ;    (Depackfile)
  470.  
  471.     (
  472.     (working #Message)
  473.     (set Error (run ("RAM:lha -q -Qp -N -wRAM: x %s \"%s\" \"%s\"" ArchiveName Destination FileName)))
  474.     (if (<> Error 0)
  475.         (message
  476.          ("Cannot Depack %s from the archive %s to %s" FileName ArchiveName Destination
  477.          )
  478.     )
  479.     )
  480.     )
  481. )
  482.  
  483. (procedure DepackFiles
  484. ;Extract all files from an lha archive
  485. ; syntax: 
  486. ;    (set #Message     ("Installing Bla Bla"))
  487. ;    (set ArchiveName ("%sEagleplayers.lha" #EP_Disk1))
  488. ;    (set Destination (tackon target "Eagleplayers/"))
  489. ;    (Depackfiles)
  490.  
  491.     (
  492.         (debug "In Entpackroutine für ganze Dirs")
  493.     (working #Message)
  494.     (set Error (run ("RAM:lha -q -Qp -N -wRAM: x %s \"%s\"" ArchiveName Destination)))
  495.     (if (<> Error 0)
  496.         (message
  497.             ("Cannot Depack from the archive %s to \n" ArchiveName
  498.              "%s" Destination
  499.             )
  500.     )
  501.     )
  502.     )
  503. )
  504.  
  505. (procedure DepackUserprg
  506.  (
  507.   (if (IN  maxfiles n)
  508.    (
  509.     (protect (tackon target (tackon "EP-Userprograms/" UPSFileName)) "+rwed")
  510.     (delete (tackon target (tackon "EP-Userprograms/" UPSFileName)))
  511.  
  512.     (set #Message     ("Installing EP-Userprograms/%s..." UPSFilename))
  513.     (set Destination (tackon target "EP-Userprograms/"))
  514.     (set FileName UPSFilename)
  515.     (depackfile)
  516.    )
  517.   )
  518.  )
  519. )
  520. ;============================== Welcome the User ===========================
  521.  
  522. (set @app-name (cat "Eagleplayer" #EP_version))
  523. (set APPNAME (cat "Eagleplayer" #EP_version))
  524.  
  525. ;(welcome)
  526.  
  527. (set old_level @user-level)
  528.  
  529. (user 2)
  530. (message #intro)
  531. (user old_level)
  532.  
  533. ;======================== Ask what he wants to install =======================
  534.  
  535. (set #InstallParts
  536.         (askoptions
  537.             (prompt #WhatInstall)
  538.             (help #WhatHelp)
  539.             (choices
  540.                 ("%s" MainProgname)        ;Bit 0
  541.                 ("%s" Eagleplayersname)        ;Bit 1
  542.                 ("%s" Userprogramsname)        ;Bit 2
  543.                 ("%s" Libsname)            ;Bit 3
  544.                 ("%s" Documentationname)    ;Bit 4
  545.                 ("%s" ArexxScriptsname)        ;Bit 5
  546.                 ("%s" DeveloperKitname)        ;Bit 6
  547.                 ("%s" Noiseconvertername)    ;Bit 7
  548.             )
  549.         )
  550. )
  551. ;====== get target directory where the Eagleplayer is to be installed =====
  552.     (user 2)
  553.  
  554.     (set target (askdir (prompt #which-disk)
  555.                     (help @askdir-help)
  556.                     (default "DH0:")
  557.                     (disk)
  558.         )
  559.     )
  560.  
  561.    (set @default-dest target)
  562.  
  563.    (user old_level)
  564.  
  565. ;=========== find out if we booted from Eagleplayer disk or not ==========
  566. ;----------- and ask for the libs,devs and rexx path if needed  ----------
  567.                     ;did we boot from the Eagleplayer
  568. (set Booted                ;disk ?
  569.   (expandpath "sys:")
  570. )
  571.  
  572.  
  573. (if (<> #EP_Disk1 Booted)
  574. ;(if (= #EP_Disk1 Booted)               ;für Testzwecke
  575.   ( (set Libpath ('Libs:'))
  576.     (set Keypath ('Devs:'))
  577.     (set Rexxpath ('Rexx:'))
  578.     (set Envarcpath "Envarc:")
  579.     (set Localepath ('Locale:'))
  580.  
  581.     (debug "Sys: ist nicht gleich EP-Disk !" Booted)
  582.   )
  583.   (
  584.     (set Keypath target)
  585.     (user 2)
  586.  
  587.     (if (= old_level 0)
  588.       ( (message (#Betterabort))
  589.       )
  590.       ( (message (#Betterboot))
  591.       )
  592.     )
  593.  
  594.     (if (IN #InstallParts 3)
  595.      (
  596.       (set Libpath
  597.        (askdir (prompt #where-libs)
  598.            (help @askdir-help)
  599.            (default "DH0:libs")
  600.            (disk)
  601.        )
  602.       )
  603.      )
  604.     )
  605.  
  606.     (if (IN #InstallParts 5)
  607.      (
  608.       (set Rexxpath
  609.        (askdir (prompt #where-rexx)
  610.            (help @askdir-help)
  611.            (default "DH0:rexx")
  612.            (disk)
  613.        )
  614.       )
  615.      )
  616.     )
  617.  
  618.     (if (AND (IN #InstallParts 7) (> KickVersion 37))
  619.      (
  620.       (set Localepath
  621.        (askdir (prompt #where-locale)
  622.            (help @askdir-help)
  623.            (default "DH0:locale")
  624.            (disk)
  625.        )
  626.       )
  627.      )
  628.     )
  629.  
  630.  
  631.     (if (IN #InstallParts 0)
  632.      (
  633.  
  634.  
  635.        (set Envarcpath
  636.         (askdir (prompt #where-envarc)
  637.                   (help @askdir-help)
  638.                (default "DH0:prefs/env-archive")
  639.                   (disk)
  640.         )
  641.        )
  642.  
  643.        (set keypresent (exists (tackon #EP_Disk1 "devs/Eagleplayer.key"))
  644.        )
  645.  
  646.         (if (= keypresent 1)
  647.  
  648.          (
  649.  
  650.            (set Keypath (askdir (prompt #where-key)
  651.                             (help @askdir-help)
  652.                         (default "DH0:devs")
  653.                     (disk)
  654.                     )
  655.            )
  656.  
  657.          )
  658.         )
  659.      )
  660.     )
  661.  
  662.     (debug "Alternative Pfade, da von Disk gebootet !" Booted)
  663.     (user old_level)
  664.   )
  665. )
  666.  
  667. ;=================== Ask for the Userprograms ============================
  668. (if (AND (= @user-level 2) (IN #InstallParts 2))
  669.  (
  670.   (set user13
  671.    (askoptions (prompt #which-user13)
  672.                (help #which-user-help)
  673.                (choices 
  674.                                "R Analyze.small" ;1
  675.                                "- Levelgraph"    ;2
  676.                                "R Levelgraph2"   ;4
  677.                                "R Levelmeter"    ;8
  678.                                "- Time"          ;16
  679.                                "- Noiseeagle")   ;32
  680.    )
  681.   )
  682.  
  683.   (set user20
  684.    (askoptions (prompt #which-user20)
  685.                (help #which-user-help)
  686.                (choices 
  687.                               "- Analyzer"            ;1
  688.                               "- DirList Viewer"        ;2
  689.                               "- HiFi"                ;4
  690.                               "- M.E.L.G.U"            ;8
  691.                               "- Moduleinfo"            ;16
  692.                               "- Messagewindow"            ;32
  693.                               "R Monoscope"            ;64
  694.                               "- Patternscroll"            ;128
  695.                               "- Public Screen Manager"        ;256
  696.                               "- Space-Scope"            ;512
  697.                               "R Stereoscope"            ;1024
  698.                               "- Quadrascope"            ;2048
  699.                               "R Voicemeter")            ;4096
  700.    )
  701.   )
  702.  
  703.   (set user30
  704.    (askoptions (prompt #which-user30)
  705.                (help #which-user-help)
  706.                (choices 
  707.                               "- Levelmeter  AGA")        ;1
  708.    )
  709.   )
  710.  
  711.  )
  712.  
  713.  (
  714.  
  715.     (set keypresent (exists (tackon #EP_Disk1 "devs/Eagleplayer.key"))
  716.     )
  717.      (if (= keypresent 1)
  718.       (
  719.        ;setze Maske für registrierte Version (alle UPS)
  720.       (set user13 63)            ;<- muß 2^(Anzahl der UPS) -1  sein !!!
  721.       (if (> kickversion 36)
  722.        (set user20 8191)        ;<- muß 2^(Anzahl der UPS) -1  sein !!
  723.        (set user20 0)                   ;für Kick 1.3
  724.       )
  725.  
  726.       (if (> kickversion 38)
  727.        (set user30 1)            ;<- muß 2^(Anzahl der UPS) -1  sein !!
  728.        (set user30 0)                   ;für Kick 1.3
  729.       )
  730.  
  731.  
  732.       )
  733.       (
  734.        ;setze Maske für unregistrierte Version (nur unregistrierte UPS)
  735.       (set user13 50)
  736.       (if (> kickversion 36)
  737.        (set user20 3007)
  738.        (set user20 0)
  739.       )
  740.       (if (> kickversion 38)
  741.        (set user30 1)
  742.        (set user30 0)
  743.       )
  744.       )
  745.      )
  746.  
  747.  )
  748. )
  749.  
  750. (debug "Ausgewählte Userprogramme:" user13 user20)
  751.  
  752. ;Disk 1 ============  Copy LHA to Ram: (to depack all archives) ==============
  753.     (copyfiles
  754.         (prompt "")
  755.         (help "")
  756.         (source (tackon #EP_Disk1 "C/lha"))
  757.         (dest "RAM:")
  758.     )
  759.  
  760. ;Disk 1 ========== Copy the Eagleplayer to the desired directory =============
  761. ;       ==========                   if Exist:                   =============
  762. ;              beside of this: default prefs, keyfile and helpfile
  763. (if (IN #InstallParts 0)
  764.  (
  765.     (copyfiles (source (tackon #EP_Disk1 "Eagleplayer"))
  766.                (dest target)
  767.                (infos)
  768.                (optional "force" "nofail")
  769.     )
  770.  
  771.      (set keypresent (exists Envarcpath))
  772.      (debug "Envarc gefunden:" keypresent)
  773.  
  774.       (if (= keypresent 2)
  775.        (
  776.          (copyfiles (optional "nofail")
  777.                     (source (tackon #EP_Disk1 "prefs/env-archive"))
  778.                     (dest Envarcpath)
  779.                     (prompt #copyprefs)
  780.                     (help "")
  781.                     (confirm)
  782.                     (all)
  783.          )
  784.        )
  785.       )
  786.  
  787.      (set keypresent (exists (tackon #EP_Disk1 "devs/Eagleplayer.key"))
  788.      )
  789.  
  790.       (if (= keypresent 1)
  791.  
  792.        (
  793.  
  794.          (copyfiles (optional "nofail")
  795.                     (source (tackon #EP_Disk1 "devs/Eagleplayer.key"))
  796.                     (dest keypath)
  797.                     (prompt #copykey)
  798.                     (help "Read the Docs")
  799.                     (confirm)
  800.          )
  801.  
  802.       )
  803.      )
  804.  
  805.      (set keypresent (exists (tackon #EP_Disk1 "Eagleplayer.help"))
  806.      )
  807.  
  808.       (if (= keypresent 1)
  809.  
  810.        (
  811.  
  812.         (copyfiles (optional "nofail")
  813.                  (source (tackon #EP_Disk1 "Eagleplayer.help"))
  814.                  (dest target)
  815.                  (prompt #copyhelp)
  816.                  (help "Read the Docs")
  817.                  (confirm)
  818.         )
  819.        )
  820.       )
  821.  )
  822. )
  823.  
  824. ;Disk 1 ====================== copy Bonus Programs ====================
  825. (if (IN #InstallParts 7)
  826.  (
  827.   (copyfiles (source (tackon #EP_Disk1 "Noiseconverter"))
  828.              (dest target)
  829.              (prompt #copybonus)
  830.              (help #copybonushelp)
  831.              (confirm)
  832.              (infos)
  833.              (optional "force")
  834.   )
  835.  
  836.   (if (> KickVersion 37)
  837.    (
  838.     (copyfiles (source (tackon #EP_Disk1 "Locale"))
  839.                (dest localepath)
  840.                (prompt #copyinglocale)
  841.                (help "")
  842.                (confirm)
  843.                (ALL)
  844.                (optional "force" "nofail")
  845.     )
  846.    )
  847.   )
  848.  
  849.  )
  850. )
  851.  
  852. ;Disk 1 ================= copy Libraries ===================================
  853. (if (IN #InstallParts 3)
  854.  (
  855.   (copylib
  856.       (prompt "Copy XPKMaster.library")
  857.       (help @copylib-help)
  858.     (source (tackon #EP_Disk1 "LIBS/XPKMaster.library"))
  859.     (dest Libpath)
  860.       (confirm)
  861.     (optional "nofail")
  862.   )
  863.  
  864.   (copyfiles
  865.      (prompt "Copy XPKNuke.library")
  866.      (help @copylib-help)
  867.      (source (tackon #EP_Disk1 "LIBS/Compressors/"))
  868.    (dest (tackon Libpath "Compressors"))
  869.    (confirm)
  870.    (optional "nofail")
  871.    (all)
  872.   )
  873.  
  874.   (copylib
  875.      (prompt "Copy Powerpacker.library")
  876.      (help @copylib-help)
  877.      (source (tackon #EP_Disk1 "LIBS/Powerpacker.library"))
  878.    (dest Libpath)
  879.      (confirm)
  880.    (optional "nofail")
  881.   )
  882.  
  883.   (copylib
  884.    (prompt "Copy LH.library")
  885.      (help @copylib-help)
  886.      (source (tackon #EP_Disk1 "LIBS/lh.library"))
  887.    (dest Libpath)
  888.      (confirm)
  889.    (optional "nofail")
  890.   )
  891.  
  892.   (copylib
  893.      (prompt "Copy Req.library")
  894.      (help @copylib-help)
  895.      (source (tackon #EP_Disk1 "LIBS/req.library"))
  896.    (dest Libpath)
  897.      (confirm)
  898.    (optional "nofail")
  899.   )
  900.  
  901.   (copylib
  902.      (prompt "Copy Reqtools.library")
  903.      (help @copylib-help)
  904.      (source (tackon #EP_Disk1 "LIBS/req.library"))
  905.    (dest Libpath)
  906.      (confirm)
  907.    (optional "nofail")
  908.   )
  909.  )
  910. )
  911.  
  912. ;Disk 2 ============== copy the external Players to be installed ========
  913. (if (IN #InstallParts 1)
  914.   (
  915.    (makedir (tackon target "Eagleplayers")
  916.             (infos)
  917.    )
  918.  
  919.    (set #Message #InstallReplays)
  920.    (set ArchiveName ("%sEagleplayers.lha" #EP_Disk2))
  921.    (set Destination (tackon target "Eagleplayers/"))
  922.    (Depackfiles)
  923.   )
  924. )
  925.  
  926. ;Disk 2======================== copy Docs ===================================
  927. ;              Betriebssystem < 3.0 -> Install Amigaguide
  928. (if (IN #InstallParts 4)
  929.   (
  930.     (set doctarget (askdir (prompt #copydocs)
  931.                            (help #copydocshelp)
  932.                            (default target)
  933.                            (disk)
  934.                    )
  935.     )
  936.  
  937.     (if (< Kickversion 39)
  938.      (
  939.       (copylib
  940.          (prompt "Copy Amigaguide.library")
  941.          (help @copylib-help)
  942.        (source (tackon #EP_Disk1 "LIBS/Amigaguide.library"))
  943.        (dest Libpath)
  944.        (confirm)
  945.       )
  946.  
  947.       (copyfiles (source (tackon #EP_Disk1 "utilities/Amigaguide"))
  948.                  (dest doctarget)
  949.                  (infos)
  950.                  (confirm)
  951.       )     
  952.       (copyfiles (source ("%sIcons/%s.info" #EP_Disk1 Docfile))
  953.                  (dest doctarget)
  954.       )     
  955.      )
  956.     )
  957.  
  958.     (set #Message #copyingdocs)
  959.     (set ArchiveName ("%sDocs.lha" #EP_Disk2))
  960.     (set Destination "ram:")
  961.     (set FileName Docfile)
  962.     (Depackfile)
  963.  
  964.     (if (> Kickversion 38)
  965.      (
  966.       (set #Message #copyingdocs)
  967.       (set ArchiveName ("%sDocs.lha" #EP_Disk2))
  968.       (set Destination "ram:")
  969.       (set FileName ("%s.info" Docfile))
  970.       (debug Filename)
  971.       (debug Archivename)
  972.       (Depackfile)
  973.      )
  974.     )
  975.  
  976.     (set ramtest (expandpath doctarget))
  977.     (set ramtest2 (expandpath "ram:"))
  978.  
  979.     (if (<> ramtest ramtest2)
  980.      (
  981.       (copyfiles (source (tackon "ram:" docfile))
  982.                (dest doctarget)
  983.                (infos)
  984.       )
  985.  
  986.       (delete (tackon "ram:" docfile))
  987. ;      (set yo (exists ("ram:%s.info" docfile)))
  988. ;      (if (=yo 1)
  989. ;       (delete ("ram:%s.info" docfile))
  990. ;      )
  991.      )
  992.     )
  993.   )
  994. )
  995.  
  996. ;Disk 2 =============== copy the Userprograms ===========================
  997. (if (IN #InstallParts 2)
  998.  (
  999.   (makedir (tackon target "EP-Userprograms")
  1000.            (infos)
  1001.   )
  1002.  
  1003.   (if (<> user13 0)
  1004.    (
  1005.     (set n 0)
  1006.     (set maxfiles user13)
  1007.     (set ArchiveName ("%sUserprograms.lha" #EP_Disk2))
  1008.       (while (set UPSFileName
  1009.               (select n
  1010.             "Analyze.small"
  1011.             "Levelgraph"
  1012.             "Levelgraph2"
  1013.             "Levelmeter"
  1014.             "Time"
  1015.             "Noiseeagle"
  1016.             ""
  1017.             )
  1018.              )
  1019.            (Depackuserprg)
  1020.            (set n (+ n 1))
  1021.     )
  1022.      )
  1023.   )
  1024.  
  1025.   (if (<> user20 0)
  1026.    (
  1027.     (set n 0)
  1028.     (set maxfiles user20)
  1029.       (while (set UPSFileName
  1030.               (select n
  1031.                          "Analyzer"
  1032.                          "DirListViewer"
  1033.                          "HiFi"
  1034.                          "M.E.L.G.U"
  1035.                          "Moduleinfo"
  1036.                          "Messagewindow"
  1037.                          "Monoscope"
  1038.                          "Patternscroll"
  1039.                          "PublicScreenmanager"
  1040.                          "Space-scope"
  1041.                          "Stereoscope"
  1042.                          "Quadrascope"
  1043.                          "Voicemeter"
  1044.                          ""
  1045.             )
  1046.              )
  1047.            (Depackuserprg)
  1048.            (set n (+ n 1))
  1049.     )
  1050.      )
  1051.   )
  1052.  
  1053.   (if (<> user30 0)
  1054.    (
  1055.     (set n 0)
  1056.     (set maxfiles user30)
  1057.       (while (set UPSFileName
  1058.               (select n
  1059.                          "LevelmeterAGA"
  1060.                          ""
  1061.             )
  1062.              )
  1063.            (Depackuserprg)
  1064.            (set n (+ n 1))
  1065.     )
  1066.      )
  1067.   )
  1068.  
  1069.  
  1070.  )
  1071. )
  1072.  
  1073. ;Disk 2 ===================== copy Examples ================================
  1074. (if (IN #InstallParts 6)
  1075.   (
  1076.     (set examplestarget (askdir (prompt #copyexamples)
  1077.                                 (help #copyexampleshelp)
  1078.                             (default target)
  1079.                             (disk)
  1080.                         )
  1081.     )
  1082.  
  1083.    (set #Message #copyingexamples)
  1084.    (set ArchiveName ("%sDeveloper.lha" #EP_Disk2))
  1085.    (set Destination examplestarget)
  1086.    (Depackfiles)
  1087.   )
  1088. )
  1089.  
  1090. ;Disk 2 ===================== copy Arexx-Scripts =======================
  1091. (if (IN #InstallParts 5)
  1092.   (
  1093.    (set #Message #copyingarexx)
  1094.    (set ArchiveName ("%sArexxExamples.lha" #EP_Disk2))
  1095.    (set Destination Rexxpath)
  1096.    (Depackfiles)
  1097.   )
  1098. )
  1099.  
  1100. ;============= ready installing the Eagleplayer  =======================
  1101. (delete "ram:lha")
  1102.  
  1103. (exit)
  1104.